(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     34535,        603]
NotebookOptionsPosition[     33609,        571]
NotebookOutlinePosition[     33953,        586]
CellTagsIndexPosition[     33910,        583]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Motor",
 FontFamily->"System"]], "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.5157358575371985`*^9, 3.5157358649903235`*^9}, {
  3.5226502121875*^9, 3.522650212640625*^9}, {3.5934148183135486`*^9, 
  3.59341482012873*^9}}],

Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0003eL0@0006`0000R0000<`400<`>002n4000
@P400>P50039>`00?TH00215CDH00040G3d001T2000300000000000000000000XQ800:PJ003:0000
8@400000000000000000010E0`3XJ0@0AP0002`0000P0000ADe6:`500@0L00004000008@`=/00000
F08005P200160000G00005000015CDH[8T0400`0000000007T0900`000000000940100`000000000
<4020100000400000020?b501`0<0000000000A0000<0000000004H0000X0000700004M4BD<20000
C00006D1000F3P00SQ00000000160000:00001`00017A4U30P0007X5000N2@0000h008h900000000
AP0005P0001<0000ADe6:bY0000T000060000000P3l000200000P000P3l000200000P0Y0080T0000
60000<30`?l10000Zf:bA01f4dGo<`E5@=Ee@R4000080000HP0000`000010000900002@00000000n
000000000000000n00000000000200009`0001P00001000000000<30`00000009@0000`000010000
9@0000`000080020EP000300002B1@00=PT00>H=001e2@001@0009D/]dVE;:=;;fnSBbm_]dVE;;M9
9@0000`0000700209@0000`000000020900002@00000001100000000000000110000000000020000
AP0009`0002@0000ADe6:`Q000900000=000008@`=/00000eP000000000004Q20P00008000000011
0P00000000024<3K00000<30`?l8@043?000030000024<3K10000000002[H[9407HCAJ]R/TAECAM5
EVENAEE=5dEFIEi507HCA@010H4E@040400000@000000000>P0000`000080000900002@00000000n
000000000000000n0000000000020000G`0003P000020000>0000000000h00000000000P0@2@0@00
00000<30`000000000000000000U000030000080000U0000300000D0081F0000;0000<84001V2000
]Ph004D:00040000UBbgBID/Xd/_Kj=;;fngBBD0000<00001`00P2D0000<00000000P2@0000T0000
0000@@00000000000000@@00000000000P0002P0000<00000P0003X0000<00002P000280000<0000
ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U30`0004H0000X0000
700004M4BD<20000L`D009T800053P00iPP0000000160000F00004`00015CDH[:T0002@0000H0000
0020?`00080000200020?`00080000202T00P2@0000H0000`<30o`40002[V[54Zb0;AEC[1DF0EM11
8@0000P0001R000030000040000T00009000000003h000000000000003h0000000000080000U0000
30000040000U0000300000P0081F0000<00008`5002a2000k0d00<`800050000Hbb=AF</GDIIKee6
FFn=AF</SDDU0000300000L0080U000030000000080T000090000000044000000000000004400000
0000008000160000W00009000015CDH[24020T00000d00000Q30f`00003F000000000000B4820000
0P000000044200000000008@`=/00000`<30o`Q00`<l0000<000008@`=/4000000000:^J/DB[80]5
ZiZaA5K134F[^5i5E/4<AJ^hGTF[80]50041PAE00`0@000010000080000j0000300000P0000T0000
9000000003h000000000000003h0000000000080001O0000>0000080000h0000000003P000000000
0201090100000000`<30000000000000000002D0000<00000P0002D0000<00001@00P5H0000/0000
_0@00>47002l3P00W0T000@0001S;8e5HbaMAUU_GDIIKhe59@0000`0000700209@0000`000000020
900002@00000001100000000000000110000000000020000:00000`000020000>P0000`0000:0000
8P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000000004H0000D0000200004M4BD<30000
AP0002P0000L0000AdA9@`80001b1@00DPP000P>002J2@00000004H000300000]00004E=AR/Z@000
900001P00000080o0000P0000800080o0000P0000808@0@2@00003@000024<3K00000=H000000000
0018@P80000200000000@@80000000000Q30f`000000003o24050c`0000`00000Q30f`@000000000
EGVaA5Fc1TEENK54ZP@HAJ_ZGTFZ11Q5ZnYNAEFc1TD00@615D050100000400001000024000080000
HP0000`000010000>P0000`000080000900002@00000000n000000000000000n0000000000020000
G`0003P000020000>0000000000h00000000000P0@2@0@00000000000000000000000000000U0000
30000080000U0000300000D0081F0000;0000;/4002J1`00_`h0050:00040000FbaF@e//od]bKom;
LVmF@bD0000<00001`00P2D0000<00000000P2@0000T00000000@@00000000000000@@0000000000
0P0002P0000<00000P0003X0000<00002P000280000<0000ooooodH0000L0000400004E=AR/4@000
3000000000160000500000P00017A4U30`0004H0000X0000700004M4BD<20000D`@006D1002h1000
N`D0000000160000Z00009`00015CDH[:T0002@0000H00000020?`00080000200020?`0008000020
24060SP0000/00000Q30f`00002H000000000000b48200000000@@0000024<3K000000000?l8@0L3
;000020000024<3K0P000000001EZI14EJG;@eFYT4B[0ZU40041PAE01`0@0000100000H0000Q0000
20000680000<00000@0002@0000T00000020?@00000000000020?@00000000000P0005l0000h0000
0P0003P000000000>000000000000P40@0H000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@0001A1000H`400;P4001k1@000P0004e8KAU=B7YD9@0000`000070020
9@0000`000000020900002@00000081100000000000008110000000000020000:00000`000020000
8P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000000004H0000D0000200004M4BD<30000
AP0002P0000L0000AdA9@`80001C1000Y``00;P4002>4000000004H0002X0000W00004E=AR/Z@000
900001P00000080o0000P0000800080o0000P0000808@0P2>00002`000024<3K000009P000000000
0038@P80000000110000008@`=/000000000o`Q02@</00008000008@`=/20000000005FYT4@0g895
EJV@A5FICDD00@615D090100000400002000024000080000HP0000`000010000900002@00000080n
000000000000080n0000000000020000G`0003P000020000>0000000000h0000000000020@2@0@00
000000000000000000000000000U000030000080000U0000300000D0081G000090000584002V3000
^0@008h@00020000519/@A@BIC<U0000300000L0080U000030000000080T000090000000P4000000
00000000P400000000000080000X000030000080000R000030000?oooom60000700001000015CDH[
140000`000000000AP0001@000080000AdA9@`<000160000:00001`00017A4U30P0004`0002o1000
_`P003<=00000000AP000=@000380000ADe6:bY0000T000060000000P3l000200000P000P3l00020
0000P0Q02P>@0000Q000008@`=/=0000000005FYT4AE:Ie4D/LAA5DYWDB[J^]2DeKGA:]Zjd80SPm5
Zf[[@]I`<dEBaa54EHM@AEFYT4AEQe150VoHA5F7D4D0CPU5eW0cA@1>2DD0SPm504h9AE=Fed@2KmQ4
EBVMA5FYT4AE:Ie400<30`<30`<30`<3Ph2<@aA02X0@000010000?oooolX000030000040000Q0000
20000680000<00000@0002@0000T00000000?P00000000000000?P00000000000P0002L0000H0000
0@000000003oool0000002D0000<00000@0001<0000<00000@0003/000080000E@00050000000000
00000?oooooooooo3@0002LTAbLe4TLWZP?B=JX3`dNZ0kEI=A90J2LT@6PH=T1XXdBeFJ=4`dNSA=8e
63I79bLTAbLl0000200003h0000H0000M@000>P4002E200020d001<0000<00000@0002D0000<0000
0000P2@0000T00000000@@00000000000000@@00000000000P0004H0001T0000F00004E=AR/8@0/2
A00003P000024<3K00000=h000000000ZjZV@P80000200000P000000044200000000008@`=/00000
0000oaE02P0@0000100000/0000T00009000000003h000000000000003h0000000000080001O0000
>0000080000h0000000003P000000000000109/2000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5D0001@0000BP000;h400302000<`d000d0000W94LW=A979jX3dSFZ0l=7
ZP>eFCDB@6PW941X63I0J:=4]EVSA<=7XdCB=APfAbLW94LW9@0000`0000700209@0000`000000020
900002@00000001100000000000000110000000000020000:00000`0000200008P0000`0003ooooo
AP0001`0000@0000ADe6:`A0000<0000000004H0000D0000200004M4BD<30000DP00070100020000
h?coo`0000000000000009010000000004000440LP1Y0640K0000000000000000@000000002T0`00
000000000000000093KC<42h?`0200000@0000800000000000000000002@0@0000000838?`0DD^H`
:;Lo05Rl?`0T^1<00@0006c;?`020000K;PC0=mBiS000000K</o0835?`000000G0_a<04000000000
00000835?`0000007Z[V<?l0002Pe3l00P0000000000000000000000001@bSl0OQ3a<080003ooooo
F3h4<01SEC1Qe04`3;hC0000003P/3l0@a<:<1d4?`0M13l0VA<:<4d0000003l000000835?`000000
[;PC0835?`00000000000000002]3o4`P<Do00000008^A<0n;PC07l30008^cl0I7H02000000U0000
30000080000F0000300001P0000B000030000040000H000030000000009D0000E00003P3001?1`00
d@D00<`:00010000OH>7@8f5Qd0h0`008`X00040001<00000000000000000000oooooooooom@0000
C@19@iX2000F000030000000000U0000300000h0080X00003000008000160000:00001`00017A4U3
0P0008<:001b10005Ph006l=00000000AP0002P0000L0000AdA9@`8000232P00LP@001H>001_3@00
000004H0001H0000C00004E=AR/Z@000900001P00000080o0000P0000800080o0000P000080:@020
900001P0003ooooo0@000:_::DEELI54[>9GA?jO34DQ000020000680000<00000@0002@0000T0000
0000?P00000000000000?P00000000000P0002D0000<00000@0002D0000<00002000P5H0000`0000
W0X008/4003l3@00EPd000D0003RE5TThUBYJ]i_ZF[NKeTThUAI92D0000<00001`00P2D0000<0000
0000P2@0000T00000000@@00000000000000@@00000000000P0004H0002L0000T00004E=AR/8@0`2
@00003@000024<3K00000=H0000000000018@P80000200000000@@80000000000Q30f`000000003o
240=0c`0000`00000Q30f`@000000000ZlXYAEEaTDB[bRU5ZUQEAEK3GdFZF5E5E/=OAEEaTD@00@61
5D0=010000040000300003X0000<0000200002@0000T00000000?P00000000000000?P0000000000
0P0005l0000h00000P0003P000000000>000000000008040T0400000000000000000000000000000
9@0000`0000200009@0000`000050020EP0002`0003<2@00^`<00<`>000V3P0010000>9DFBCRE:UZ
gVnYJ]i_FB@U0000300000L0080U000030000000080T000090000000044000000000000004400000
00000080000X000030000080000j0000300000X0000R000030000?oooom60000700001000015CDH[
140000`000000000AP0001@000080000AdA9@`<000160000:00001`00017A4U30P000;D:001J2P00
g0d003`<00000000AP0005P0001<0000ADe6:bY0000T000060000000P3l000200000P000P3l00020
0000P0Y0080T000060000<30`?l10000ZnX/A@0`9dD043e40:3G@bP0000<00000@00024000080000
HP0000`000010000900002@00000000n000000000000000n00000000000200009`0001P000010000
00000<30`00000009@0000`0000100009@0000`000080020EP000300003>2P00LPX00<<=000R3000
1@00079FU5=bEPiQ56h>HAA^U5=bEYAC9@0000`0000700209@0000`000000020900002@000000011
00000000000000110000000000020000AP0009`0002@0000ADe6:`Q03P900000=000008@`=/00000
eP000000000004Q20P000080000000110P00000000024<3K00000<30`?l8@0l3?000030000024<3K
10000000002[jRa5030WAJ_Z;4D09495ZbiLA@0T@TF[;Ua5030WA@010H4E@0l0400000@0000>0000
>P0000`000080000900002@00000000n000000000000000n0000000000020000G`0003P000020000
>0000000000h00000000000P0@2@0@0000000<30`000000000000000000U000030000080000U0000
300000D0081F0000;0000?h9002R2@00T`h00?8<00040000LUJDDg9F3V4DKPiQ56jDDbD0000<0000
1`00P2D0000<00000000P2@0000T00000000@@00000000000000@@00000000000P0002P0000<0000
0P0003X0000<00002P000280000<0000ooooodH0000L0000400004E=AR/4@0003000000000160000
500000P00017A4U30`0004H0000X0000700004M4BD<20000]@X000D6003L3@0030L0000000160000
F00004`00015CDH[:T0002@0000H00000020?`00080000200020?`00080000202T00P2@0000H0000
`<30o`40002[jRa5EMG3A00@?DAHME=38@0000P0001R000030000040000T00009000000003h00000
0000000003h0000000000080000U000030000040000U0000300000P0081F0000<0000<h:000N1P00
``d00?8600050000LUKb<79FSCLDKXdg56kb<79FlS0U0000300000L0080U000030000000080T0000
900000000440000000000000044000000000008000160000W00009000015CDH[240@0T00000d0000
0Q30f`00003F000000000000B48200000P000000044200000000008@`=/00000`<30o`Q04@<l0000
<000008@`=/4000000000:_Z;4EEeL=4ZnX/A@14gTB[;Ua504CNA:/^G4EEeL=40041PAE04@0@0000
10000100000j0000300000P0000T00009000000003h000000000000003h0000000000080001O0000
>0000080000h0000000003P0000000000201090100000000`<30000000000000000002D0000<0000
0P0002D0000<00001@00P5H0000/0000oPT004h5002C3P00`PL000@0001bE_8`LUJ==aA^SCLDK_8`
9@0000`0000700209@0000`000000020900002@00000001100000000000000110000000000020000
:00000`000020000>P0000`0000:00008P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000
000004H0000D0000200004M4BD<30000AP0001@000080000AdA9@`<000160000:00001`00017A4U3
0P0007X5000N2@0000h008h900000000AP0005P0001<0000ADe6:bY0000T000060000000P3l00020
0000P000P3l000200000P0Y0080T000060000<30`?l10000Zf:bA01f4dGo<`E5@=Ee@R4000080000
HP0000`000010000900002@00000000n000000000000000n00000000000200009@0000`000010000
9@0000`000080020EP000300002B1@00=PT00>H=001e2@001@0009D/]dVE;:=;;fnSBbm_]dVE;;M9
9@0000`0000700209@0000`000000020900002@00000001100000000000000110000000000020000
AP000200000D0000ADe6:aE00@0@000010000000000j0000300000P0000T00009000000003h00000
0000000003h0000000000080001O0000>0000080000h0000000003P0000000000201090100000000
`<30000000000000000002D0000<00000P0002D0000<00001@00P5H0000/0000`P@006H8002f3P00
A@X000@0002E;;M9UBbSBbm_Xd/_KkM99@0000`0000700209@0000`000000020900002@000000011
00000000000000110000000000020000:00000`000020000>P0000`0000:00008P0000`0003ooooo
AP0001`0000@0000ADe6:`A0000<0000000004H0000D0000200004M4BD<30000AP0002P0000L0000
AdA9@`80001c1@00V@P000D>003V2000000004H0001H0000C00004E=AR/Z@000900001P00000080o
0000P0000800080o0000P000080:@020900001P00030`<3o0@000:^J/DB[80]5E>/5AH1Ed44Q0000
20000680000<00000@0002@0000T00000000?P00000000000000?P00000000000P0002D0000<0000
0@0002D0000<00002000P5H0000`0000S0D00;48003/3@00c0P000D0001S;8e5HbaMAUU_GDIIKhe5
Hbb=ABD0000<00001`00P2D0000<00000000P2@0000T00000000@@00000000000000@@0000000000
0P0004H0000P0000500004E=AR/E@0<0400000@000020000>P0000`000080000900002@00000000n
000000000000000n0000000000020000G`0003P000020000>0000000000h00000000000P0@2@0@00
00000<30`000000000000000000U000030000080000U0000300000D0081F0000;0000;`4003Q1`00
_0h009`900040000Hbb=AF</GDIIKee6FFn=ABD0000<00001`00P2D0000<00000000P2@0000T0000
0000@@00000000000000@@00000000000P0002P0000<00000P0003X0000<00002P000280000<0000
ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U30`0004H0000X0000
700004M4BD<20000LPD0058800083P00VPT0000000160000A00003P00015CDH[:T0002@0000H0000
0020?`00080000200020?`00080000205D050100000400001000024000080000HP0000`000010000
>P0000`000080000900002@00000000n000000000000000n0000000000020000G`0003P000020000
>0000000000h00000000000P0@2@0@00000000000000000000000000000U000030000080000U0000
300000D0081F0000;0000;/4002J1`00_`h0050:00040000FbaF@e//od]bKom;LVmF@bD0000<0000
1`00P2D0000<00000000P2@0000T00000000@@00000000000000@@00000000000P0002P0000<0000
0P0003X0000<00002P000280000<0000ooooodH0000L0000400004E=AR/4@0003000000000160000
500000P00017A4U30`0004H0000X0000700004M4BD<20000D`@006D1002h1000N`D0000000160000
A00003P00015CDH[:T0002@0000H00000020?`00080000200020?`00080000205D07010000040000
1P00024000080000HP0000`000010000900002@00000080m000000000000080m0000000000020000
G`0003P000020000>0000000000h0000000000020@101P00000000000000000000000000000U0000
30000080000U0000300000D0081G000090000544001S0@00^0@007/500020000CDQ]6De8NU@U0000
300000L0080U000030000000080T000090000000P440000000000000P440000000000080000X0000
30000080000R000030000?oooom60000700001000015CDH[140000`000000000AP0001@000080000
AdA9@`<000160000:00001`00017A4U30P0005<4002W3000^0@008h@00000000AP0004@0000h0000
ADe6:bY0000T000060000000P3l000200000P000P3l000200000P1E02@0@0000100000P0000Q0000
20000680000<00000@0002@0000T00000020?P00000000000020?P00000000000P0005l0000h0000
0P0003P000000000>000000000000P40T04000000000000000000000000000009@0000`000020000
9@0000`000050020E`0002@0001B1000YP`00;P4002>40000P0001@BK44D4VDc9@0000`000070020
9@0000`000000020900002@00000081000000000000008100000000000020000:00000`000020000
8P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000000004H0000D0000200004M4BD<30000
AP0002P0000L0000AdA9@`80001<0000_`@00;l8000c3@00000004H000140000>00004E=AR/Z@000
900001P00000080o0000P0000800080o0000P000080D@0Z0400000@0003ooooo:00000`000010000
8@0000P0001R000030000040000T00009000000003h000000000000003h0000000000080000W0000
6000004000000000oooo0000000U000030000040000C000030000040000k0000200005D0001@0000
00000000003oooooooooo`d0000W94LW=A979jX3dSFZ0l=7ZP>eFCDB@6PW941X63I0J:=4]EVSA<=7
XdCB=APfAbLW94LW?00000P0000n0000600007D0003X1000U@P000P=000C000030000040000U0000
30000000080T0000900000000440000000000000044000000000008000160000800001@00015CDH[
5D0:0100000400002`0002@0000T00000000?P00000000000000?P00000000000P0005l0000h0000
0P0003P000000000>000000000000040V`8000000000000000000000000000009@0000`000020000
9@0000`000050020E@000500001:0000_P@00<08000c3@003@0002LTAbLe4TLWZP?B=JX3`dNZ0kEI
=A90J2LT@6PH=T1XXdBeFJ=4`dNSA=8e63I79bLTAbLU0000300000L0080U000030000000080T0000
9000000004400000000000000440000000000080000X000030000080000R000030000?oooom60000
700001000015CDH[140000`000000000AP0001@000080000AdA9@`<0001B0000L0400080003Po?oo
0000000000000000T04000000000@000@@1b06T0H@1/0000000000000001000000000:@300000000
0000000000000000@;Po0080000100000P000000000000000000090100000000P<Po01ABiS0X]cl0
F;`o02Bh4`010000K</o0080001/^1<0ge;V<000001/bcl0P<Do0000001L2o4`0@00000000000000
P<Do0000000NZ^H`o`000:3D?`02000000000000000000000000053:?`1n4?4`0P000?oooomH?P@`
06=E<67D0C0<_Q<000000>2`?`134`X`7@@o01d4?`2I4`X`C@000000?`000000P<Do0000002/^1<0
P<Do00000000000000000:d?lC20aCl0000000Ri4`3h^1<0O`<000Rk?`1TMP08000002D0000<0000
0P0001H0000<000060000180000<00000@0001P0000<000000000U@0001D0000>0<004l7003A1@00
c0X00040001mPhM0SHF7@3P3000S2P000@0004`00000000000000000003ooooooooooe00001=0000
VP8001H0000<0000000002D0000<00003P00P2P0000<00000P0004H0000X0000700004M4BD<20000
P`X00784000F3P00K`d0000000160000:00001`00017A4U30P0008<:001b10005Ph006l=00000000
AP0005P0001<0000ADe6:bY0000T000060000000P3l000200000P000P3l000200000P0Y0080T0000
60000?ooool10000ZlXYAEEaTDB/hUM4oYl<AB4000080000HP0000`000010000900002@00000000n
000000000000000n00000000000200009@0000`0000100009@0000`000080020EP000300002L2P00
R`@00?`=001F3@001@000>9DFBCRE:UZgVnYJ]i_FBCRE5TT9@0000`0000700209@0000`000000020
900002@00000001100000000000000110000000000020000AP000200000D0000ADe6:aE03@0@0000
100000`0000j0000300000P0000T00009000000003h000000000000003h0000000000080001O0000
>0000080000h0000000003P00000000002010901000000000000000000000000000002D0000<0000
0P0002D0000<00001@00P5H0000/0000c0T00;/3003<3P009Ph000@0003RE5TThUBYJ]i_ZF[NKeTT
9@0000`0000700209@0000`000000020900002@00000001100000000000000110000000000020000
:00000`000020000>P0000`0000:00008P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000
000004H0000D0000200004M4BD<30000AP0002P0000L0000AdA9@`80002e2P00FPX00=`=000l3000
000004H0001H0000C00004E=AR/Z@000900001P00000080o0000P0000800080o0000P000080:@020
900001P00030`<3o0@000:_Z;4D0<2M5010mA02Ped<X000030000040000Q000020000680000<0000
0@0002@0000T00000000?P00000000000000?P00000000000P0002L0000H00000@0000000030`<00
000002D0000<00000@0002D0000<00002000P5H0000`0000cPX0078:00333@008P`000D0001bEYAC
LUH>HAA^3V4DKYACLUJDDbD0000<00001`00P2D0000<00000000P2@0000T00000000@@0000000000
0000@@00000000000P0004H0000P0000500004E=AR/E@0l0400000@0000>0000>P0000`000080000
900002@00000000n000000000000000n0000000000020000G`0003P000020000>0000000000h0000
0000000P0@2@0@0000000<30`000000000000000000U000030000080000U0000300000D0081F0000
;0000?h9002R2@00T`h00?8<00040000LUJDDg9F3V4DKPiQ56jDDbD0000<00001`00P2D0000<0000
0000P2@0000T00000000@@00000000000000@@00000000000P0002P0000<00000P0003X0000<0000
2P000280000<0000ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U3
0`0004H0000X0000700004M4BD<20000]@X000D6003L3@0030L0000000160000F00004`00015CDH[
:T0002@0000H00000020?`00080000200020?`00080000202T00P2@0000H0000`<30o`40002[jRa5
EMG3A00@?DAHME=38@0000P0001R000030000040000T00009000000003h000000000000003h00000
00000080000U000030000040000U0000300000P0081F0000<0000<h:000N1P00``d00?8600050000
LUKb<79FSCLDKXdg56kb<79FlS0U0000300000L0080U000030000000080T00009000000004400000
00000000044000000000008000160000800001@00015CDH[5D0A010000040000400003X0000<0000
200002@0000T00000000?P00000000000000?P00000000000P0005l0000h00000P0003P000000000
>000000000008040T04000000030`<0000000000000000009@0000`0000200009@0000`000050020
EP0002`0003n2@00CPD009<>00321`001000079FlS1bEXdg56j==aA^lS0U0000300000L0080U0000
30000000080T00009000000004400000000000000440000000000080000X000030000080000j0000
300000X0000R000030000?oooom60000700001000015CDH[140000`000000000AP0001@000080000
AdA9@`<000160000:00001`00017A4U30P0008<:001b10005Ph006l=00000000AP0005P0001<0000
ADe6:bY0000T000060000000P3l000200000P000P3l000200000P0Y0080T000060000?ooool10000
ZlXYAEEaTDB/hUM4oYl<ABP0000<00000@00024000080000HP0000`000010000900002@00000000n
000000000000000n00000000000200009`0001P00001000000000?ooo`0000009@0000`000010000
9@0000`000080020EP000300002L2P00R`@00?`=001F3@001@000>9DFBCRE:UZgVnYJ]i_FBCRE5TT
9@0000`0000700209@0000`000000020900002@00000001100000000000000110000000000020000
AP000200000D0000ADe6:aE03@0@0000100000`0000j0000300000P0000T00009000000003h00000
0000000003h0000000000080001O0000>0000080000h0000000003P0000000000201090100000000
0000000000000000000002D0000<00000P0002D0000<00001@00P5H0000/0000c0T00;/3003<3P00
9Ph000@0003RE5TThUBYJ]i_ZF[NKeTT9@0000`0000700209@0000`000000020900002@000000011
00000000000000110000000000020000:00000`000020000>P0000`0000:00008P0000`0003ooooo
AP0001`0000@0000ADe6:`A0000<0000000004H0000D0000200004M4BD<30000AP0002P0000L0000
AdA9@`80002e2P00FPX00=`=000l3000000004H0001H0000C00004E=AR/Z@000900001P00000080o
0000P0000800080o0000P000080:@020900001P00030`<3o0@000:_Z;4D0<2M5010mA02Ped<X0000
30000040000Q000020000680000<00000@0002@0000T00000000?P00000000000000?P0000000000
0P0002L0000H00000@0000000030`<00000002D0000<00000@0002D0000<00002000P5H0000`0000
cPX0078:00333@008P`000D0001bEYACLUH>HAA^3V4DKYACLUJDDbD0000<00001`00P2D0000<0000
0000P2@0000T00000000@@00000000000000@@00000000000P0004H0000P0000500004E=AR/E@0l0
400000@0000>0000>P0000`000080000900002@00000000n000000000000000n0000000000020000
G`0003P000020000>0000000000h00000000000P0@2@0@0000000<30`000000000000000000U0000
30000080000U0000300000D0081F0000;0000?h9002R2@00T`h00?8<00040000LUJDDg9F3V4DKPiQ
56jDDbD0000<00001`00P2D0000<00000000P2@0000T00000000@@00000000000000@@0000000000
0P0002P0000<00000P0003X0000<00002P000280000<0000ooooodH0000L0000400004E=AR/4@000
3000000000160000500000P00017A4U30`0004H0000X0000700004M4BD<20000]@X000D6003L3@00
30L0000000160000F00004`00015CDH[:T0002@0000H00000020?`00080000200020?`0008000020
2T00P2@0000H0000`<30o`40002[jRa5EMG3A00@?DAHME=38@0000P0001R000030000040000T0000
9000000003h000000000000003h0000000000080000U000030000040000U0000300000P0081F0000
<0000<h:000N1P00``d00?8600050000LUKb<79FSCLDKXdg56kb<79FlS0U0000300000L0080U0000
30000000080T0000900000000440000000000000044000000000008000160000800001@00015CDH[
5D0A010000040000400003X0000<0000200002@0000T00000000?P00000000000000?P0000000000
0P0005l0000h00000P0003P000000000>000000000008040T04000000030`<000000000000000000
9@0000`0000200009@0000`000050020EP0002`0003n2@00CPD009<>00321`001000079FlS1bEXdg
56j==aA^lS0U0000300000L0080U000030000000080T000090000000044000000000000004400000
00000080000X000030000080000j0000300000X0000R000030000?oooom60000700001000015CDH[
140000`000000000AP0001@000080000AdA9@`<000160000=00002P00015CDH[:T0002@0000H0000
0020?`00080000200020?`00080000208@0000P0001R000030000040001<0000I0000280000c0@00
``h00;h@000R0000<`400:8>002<3`00:@2Z0000000000000020?`00000000000020?`0000000000
000000000000000000000000000000008P0000`0003oooooAP0001`0000@0000ADe6:`90000<0000
000000h0000D000000000100000D0000
\>"], "Text",
 ImageSize->{128.688, 141.438},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Electric\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<Motor\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Electric motor with inertia load\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentQ\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Date", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.503905077842648*^9, 3.503905079842648*^9}, {
   3.5039103076641607`*^9, 3.5039103985397425`*^9}, {3.5039164662834997`*^9, 
   3.5039164750178747`*^9}, {3.5039165143772497`*^9, 
   3.5039165189397497`*^9}, {3.5041051675625*^9, 3.504105226359375*^9}, {
   3.507570546125*^9, 3.507570569546875*^9}, {3.507570601046875*^9, 
   3.50757067696875*^9}, 3.507796401609375*^9, {3.507887022343302*^9, 
   3.507887057967846*^9}, {3.5078871702320337`*^9, 3.507887175028847*^9}, {
   3.5082235454098396`*^9, 3.5082235597692146`*^9}, 3.5082237305660896`*^9, {
   3.512921352515625*^9, 3.512921388578125*^9}, {3.513708407234375*^9, 
   3.51370842740625*^9}, 3.513708469203125*^9, {3.5137087323125*^9, 
   3.513708733765625*^9}, {3.513708789984375*^9, 3.5137088199375*^9}, {
   3.513709401015625*^9, 3.513709417140625*^9}, 3.515393203725807*^9, 
   3.515394538190717*^9, 3.5157358776934485`*^9, {3.522650222546875*^9, 
   3.52265022328125*^9}, 3.5757729375244617`*^9, 3.57577311582141*^9, {
   3.6058565446914167`*^9, 3.605856544844432*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Ke", ",", "0.13", ",", "double", ",", "\"\<\!\(\*
StyleBox[\"V\",
FontFamily->\"Courier New\"]\)\!\(\*
StyleBox[\" \",
FontFamily->\"Courier New\"]\)\!\(\*
StyleBox[\"s\",
FontFamily->\"Courier New\"]\)\!\(\*
StyleBox[\"/\",
FontFamily->\"Courier New\"]\)\!\(\*
StyleBox[\"rad\",
FontFamily->\"Courier New\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"emf\",
FontFamily->\"Courier New\"]\)\!\(\*
StyleBox[\" \",
FontFamily->\"Courier New\"]\)\!\(\*
StyleBox[\"constant\",
FontFamily->\"Courier New\"]\)\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ra", ",", "0.04", ",", "double", ",", "\"\<Ohm\>\"", ",", 
       "\"\<motor resistance\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Tm0", ",", "0.", ",", "double", ",", "\"\<Nm\>\"", ",", 
       "\"\<zero speed friction of motor\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "wc", ",", "1.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<Friction speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Bm", ",", "0.0012", ",", "double", ",", "\"\<Nms/rad\>\"", ",", 
       "\"\<Visc. fric. coeff., motor\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Jm", ",", "1", ",", "double", ",", "\"\<kg m^2\>\"", ",", 
       "\"\<Moment of inertia, motor\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5137088598125*^9, 3.513708909015625*^9}, {
   3.513939650365389*^9, 3.5139396529591055`*^9}, 3.5139396911617413`*^9, {
   3.5154969860725822`*^9, 3.515496990353696*^9}, {3.515497341256056*^9, 
   3.515497389177317*^9}, {3.515727153665826*^9, 3.515727183834612*^9}, 
   3.515727397717471*^9, {3.515735827959242*^9, 3.5157358395372925`*^9}, {
   3.519118882015625*^9, 3.519118890671875*^9}, {3.5191189788125*^9, 
   3.519119000171875*^9}, {3.5757739427179136`*^9, 3.575773952467931*^9}, {
   3.6648564939567018`*^9, 3.6648564977325106`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "tormg", ",", "0.", ",", "double", ",", "\"\<Nm\>\"", ",", 
       "\"\<Generated motor torque\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pin", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Input power\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pout", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Output power\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.518547082234375*^9, 3.5185471520625*^9}, 
   3.518547487640625*^9, {3.518628009390625*^9, 3.518628013953125*^9}, {
   3.51904117421875*^9, 3.5190412405625*^9}, {3.519105757*^9, 
   3.51910577603125*^9}, {3.51910591740625*^9, 3.519105935296875*^9}, {
   3.519118720125*^9, 3.519118720625*^9}, {3.58530531198612*^9, 
   3.585305318614499*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nodeConnections", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ElectricQnode", "[", 
      RowBox[{"el1", ",", "0.", ",", "\"\<Electric port 1\>\""}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ElectricQnode", "[", 
      RowBox[{"el2", ",", "0.", ",", "\"\<Electric port 2\>\""}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"MechanicRotQnode", "[", 
      RowBox[{
      "mr1", ",", "0.", ",", "0.", ",", "\"\<Mechanical rot.connection\>\""}],
       "]"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.51371110959375*^9, {3.515486897105438*^9, 3.5154868972460594`*^9}, {
   3.5154963499562235`*^9, 3.5154963505968523`*^9}, {3.515525281796875*^9, 
   3.515525324359375*^9}, {3.515560997171875*^9, 3.51556101490625*^9}, {
   3.515727215457679*^9, 3.5157272968769484`*^9}, {3.515754819988968*^9, 
   3.5157548243171206`*^9}, 3.515929019062663*^9, {3.516033815890625*^9, 
   3.516033825828125*^9}, {3.521780774359375*^9, 3.52178077465625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Tm0e", "=", " ", 
   RowBox[{"Tm0", " ", 
    RowBox[{"limit", "[", " ", 
     RowBox[{
      RowBox[{"wmr1", "/", " ", "wc"}], ",", 
      RowBox[{"-", "1."}], ",", "1."}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tormge", "=", 
   RowBox[{
    RowBox[{"Ke", " ", "iel2"}], "-", 
    RowBox[{"Bm", " ", "wmr1"}], "-", "Tm0e"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.519118461921875*^9, 3.519118461984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Jm", " ", 
       RowBox[{"Der", "[", "wmr1", " ", "]"}]}], "==", 
      RowBox[{"(", 
       RowBox[{"tormge", "-", "tormr1"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Der", "[", "thetamr1", "]"}], "==", "wmr1"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"uel1", "-", "uel2"}], ")"}], "==", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Ra", " ", "iel2"}], " ", "+", " ", 
        RowBox[{"Ke", " ", "wmr1"}]}], ")"}]}]}], "\[IndentingNewLine]", "\t",
     "}"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.513708991484375*^9, {3.513709128109375*^9, 3.513709133359375*^9}, {
   3.513709195703125*^9, 3.51370919578125*^9}, {3.5154869651036973`*^9, 
   3.5154869816970224`*^9}, {3.5154870252427826`*^9, 
   3.5154870305863957`*^9}, {3.515487064210535*^9, 3.515487088272419*^9}, 
   3.515490159787875*^9, {3.515493268170411*^9, 3.515493323686036*^9}, {
   3.515493369529786*^9, 3.515493370326661*^9}, {3.5154935825128193`*^9, 
   3.5154936036375494`*^9}, 3.515493650621375*^9, {3.5154937018392096`*^9, 
   3.515493729041812*^9}, 3.515494010334446*^9, 3.5154960555298715`*^9, {
   3.5157296848392982`*^9, 3.5157296849017982`*^9}, {3.5157298039799232`*^9, 
   3.5157298074017982`*^9}, {3.5157298386830482`*^9, 
   3.5157298387767982`*^9}, {3.515735808599991*^9, 3.515735809287486*^9}, 
   3.5157358436310167`*^9, 3.5170378448145356`*^9, {3.519118474890625*^9, 
   3.5191184941875*^9}, {3.5719273491955833`*^9, 3.571927367666016*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemBoundaryEquations", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"uel1", "==", 
      RowBox[{"cel1", "-", 
       RowBox[{"Zcel1", " ", "iel2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"uel2", "==", 
      RowBox[{"cel2", "+", 
       RowBox[{"Zcel2", " ", "iel2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"tormr1", " ", "==", " ", 
      RowBox[{"cmr1", " ", "+", " ", 
       RowBox[{"Zcmr1", " ", "wmr1"}]}]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.513709484578125*^9, 3.513709484578125*^9}, {
  3.515490149741*^9, 3.515490151006625*^9}, {3.51556122921875*^9, 
  3.51556123359375*^9}, {3.515561274515625*^9, 3.515561294265625*^9}, {
  3.5157263110717087`*^9, 3.515726324467642*^9}, {3.5157298428080482`*^9, 
  3.5157298429017982`*^9}, {3.5158131639265437`*^9, 3.515813165879506*^9}, {
  3.5160312933125*^9, 3.516031294484375*^9}, {3.571927372268024*^9, 
  3.571927389209654*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"iel1", "==", 
      RowBox[{"-", "iel2"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"tormg", "==", " ", "tormge"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Pin", "==", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"uel1", "-", "uel2"}], ")"}], " ", "iel2"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Pout", "==", 
      RowBox[{"wmr1", " ", "tormr1"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.515493746118875*^9, 3.5154938048995757`*^9}, 
   3.5154938454615564`*^9, 3.5154939493508515`*^9, {3.515497497316558*^9, 
   3.515497504660214*^9}, {3.51911854265625*^9, 3.51911855584375*^9}, {
   3.519118651296875*^9, 3.51911865153125*^9}, {3.5719273963856664`*^9, 
   3.5719274164629016`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "wmr1", ",", "thetamr1", ",", "iel2", ",", "uel1", ",", "uel2", ",", 
     "tormr1"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.51370899921875*^9, 3.5137090601875*^9}, {
   3.513709135484375*^9, 3.513709184734375*^9}, 3.515486918636137*^9, {
   3.515493296482911*^9, 3.515493296842286*^9}, {3.515493662074348*^9, 
   3.5154936675586176`*^9}, 3.515493810883874*^9, {3.5157297996517982`*^9, 
   3.5157297997299232`*^9}, {3.515735648413516*^9, 3.5157356488041387`*^9}, {
   3.515735811631222*^9, 3.515735811709346*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.6058565333192797`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gearing", "=."}], ";", 
  RowBox[{"tmax", "=."}], ";", 
  RowBox[{"wm", "=."}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.518795782125*^9, 3.5187957916875*^9}, {
  3.605856523081256*^9, 3.6058565333192797`*^9}}]
}, Closed]]
}, Open  ]]
},
WindowSize->{910, 817},
WindowMargins->{{24, Automatic}, {Automatic, 30}},
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 255, 5, 63, "Section",
 Evaluatable->False],
Cell[837, 29, 21400, 267, 156, "Text"],
Cell[22240, 298, 1952, 39, 192, "Input"],
Cell[24195, 339, 2192, 53, 172, "Input"],
Cell[26390, 394, 1011, 23, 112, "Input"],
Cell[27404, 419, 1059, 21, 112, "Input"],
Cell[28466, 442, 475, 14, 52, "Input"],
Cell[28944, 458, 1650, 34, 112, "Input"],
Cell[30597, 494, 1003, 21, 112, "Input"],
Cell[31603, 517, 870, 20, 132, "Input"],
Cell[32476, 539, 626, 12, 31, "Input"],
Cell[CellGroupData[{
Cell[33127, 555, 160, 3, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[33290, 560, 291, 7, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
